home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / docs / lists / DevGuide.lha / DevGuide / CheckYourDevices < prev    next >
Encoding:
Text File  |  1999-02-14  |  2.4 KB  |  74 lines

  1. ; CheckYourDevs V3.0
  2. ; © 02/1999 by Heiko Schröder
  3. ; 3.0  Suche nun mit VersionWB
  4. ; 2.01 keine Auflistung von ~(#?.info|#?.bak|#?.readme|#?.sig)
  5.  
  6. Echo "Device-Check at your system*NV3.0 © Heiko Schröder 98/99"
  7. Echo "*NThe report will be written in RAM: and you can't stop the version scan!"
  8. Ask "Do you want to check your system devices? (Y/N)"
  9. If NOT WARN=5
  10.    Echo "CANCEL ..."
  11.    C:Quit
  12. EndIf
  13.  
  14. C:FailAt 100
  15. C:Copy VersionWB RAM:
  16. C:Copy C:Search RAM:
  17. C:Copy Scripts/DeviceList RAM:
  18. C:Copy MyCheck RAM:
  19. C:Copy MyCheck.rexx RAM:
  20. C:Copy MyConvert.rexx RAM:
  21.  
  22. Echo "List of all your devices*N--------------------------*N" >Ram:Dev-List
  23. Echo "List of your old devices*N--------------------------*N" >Ram:Dev-OldList
  24. Echo "List of new devices*NPlease contact me: age@thepentagon.com*Nand send this file to me. Thanks.*N--------------------------" >Ram:Dev-NewList
  25. Echo "For DevGuide (02/99) I scan infos about your system:" >>Ram:Dev-NewList
  26. VersionWB >>Ram:Dev-NewList
  27. CPU >>Ram:Dev-NewList
  28.  
  29. Echo "Starting Rexx"
  30. Sys:System/RexxMast >NIL:
  31.  
  32. Echo "Looking for Sys:Devs/#?.device"
  33. C:List Sys:Devs/ PAT=#?.device~(#?info|#?bak|#?readme|#?sig) ALL quick nohead LFormat="Execute MyCheck %s%s" >Ram:List1
  34.  
  35. Sort Ram:List1 Ram:List1
  36.  
  37. Echo "Starting Check..."
  38. SetEnv VERSIONWB_MAX 255
  39. Protect MyCheck +s
  40. Execute Ram:List1
  41. Echo "*NThe result can be found at Ram:Dev-OldList and Ram:Dev-NewList ..."
  42. Echo "Please send me the RAM:Dev-NewList for updating the Device.guide.*N"
  43. Echo "*NThis script used the program VersionWB from Håkan Parting...*N--- END---"
  44.  
  45. SetEnv VERSIONWB_MAX 50
  46. Delete Ram:List1 QUIET
  47. Delete Ram:VersionWB QUIET
  48. Delete Ram:vwb_check QUIET
  49. Delete Ram:Search QUIET
  50. Delete Ram:DeviceList QUIET
  51. Delete Ram:MyCheck QUIET
  52. Delete Ram:MyCheck.rexx QUIET
  53. Delete Ram:MyConvert.rexx QUIET
  54.  
  55. Ask "Press ENTER for next Step."
  56. Echo "*ec"
  57.  
  58. ; Device Online Update Generating Script
  59.  
  60. Echo "Device Library Update Form Generator 1.01*N© 98/99 by Heiko Schröder*N"
  61. Ask "Next Step... *NDo you want to create a Form for updating devices online at http://amigasystem.org (IP=http://209.140.94.126)? (Y/N)"
  62. If NOT WARN=5
  63.    Echo "CANCEL ..."
  64.    Delete Ram:Dev-OnlineUpdate QUIET
  65.    C:Quit
  66. EndIf
  67. Echo "Generating Form..."
  68. rx MyOnlineUpdate.rexx
  69.  
  70. Delete Ram:Dev-OnlineUpdate QUIET
  71. Echo "Ready. Please load RAM:Dev-OnlineUpdate.html in your browser and follow the instructions."
  72. Ask "*NPress ENTER to end..."
  73. Wait 2 secs
  74.